Life Expectancy vs. GDP using Plotly

fig <- gapminder %>%
      plot_ly(x = ~gdpPercap, y = ~lifeExp, 
              text = ~country,
              hoverinfo="text",
              size = ~pop) %>%
      layout(xaxis = list(type = "log")) %>%
      add_markers(color = ~continent, frame = ~year)
fig